(define (reverse-folder-right sequencd)
  (fold-right (lambda (x y) (append y (list x)))))

(define (reverse-folder-left sequencd)
  (fold-left (lambda (x y) (cons x y))))
